PC World Komputer 2003 November/PCWK1103B.iso/DesignCAD 3D Max PLUS trial 30/DATA1.CAB/Example_Files/Sample_Macros/Circle Radius.d3m

Text File | 2003-09-29 | 491 b | 21 lines

' This macro prompts users for the radius, then draws a circle at that
' radius with a centerpoint of 0.0.0
'
' Un-remark these next 2 lines to make the input box appear in the upper
' left corner of the DesignCAD window, so it does not cover the drawing area.
    ' Sys(130) = 5
    ' Sys(131) = 5
' Get Distances from user
    Input "Circle Radius", Radiu$
'
>Circle4
{
  <Color 0,0,0
  <Layer 1
  <LineStyle 0,2.0000,0.0000
  <PointXYZ 0,0,0
  <Type 0
  <Radius [Radiu$]
  }